home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / c / amiexpress / source / doors / aever / aever.c next >
Encoding:
C/C++ Source or Header  |  1992-12-26  |  10.0 KB  |  377 lines
  1. #include <exec/exec.h>
  2. #include <dos/datetime.h>
  3. #include <dos.h>
  4. #include <stdio.h>
  5. #include <stdlib.h>
  6. #include <clib/dos_protos.h>
  7. #include <clib/exec_protos.h>
  8. #include <string.h>
  9. #include "work:romconf/doorheader.h"
  10. #include "source:aztec/glue.h"
  11. int mynode;
  12. char string[200];
  13. char temp[200];
  14. void end(void);
  15. void LastCommand(void);
  16. #define sm sendmessage
  17. #define hk hotkey
  18. #define pm prompt
  19. #define pu putuserstring
  20. #define gu getuserstring
  21. void sr(char *s);
  22. void GetFileDate(char *s);
  23. char Path[200];
  24.  char Dat[20];
  25.   char DatTime[20];
  26.  char DatSize[20];
  27.  char Temp1[20];
  28. char tempname[200];
  29. char Name[200];
  30. char t[200];
  31. char p[200];
  32. char RegNum[40];
  33. char tempname1[200];
  34. char OutPutName[200];
  35. int FindIt(char *str,char *FileName);
  36. void Prepare();
  37. #define TX(x) (UBYTE)Number.Text[x]
  38. int PurgeIt(char *str,char *FileName,char *NewName);
  39. void Serialize(void);
  40. long lock=NULL;
  41. struct REGIT
  42. {
  43.    char Text[8];
  44.    long chksum;
  45. };
  46. struct REGIT Number;
  47. main(int argc,char *argv[])
  48. { 
  49.   int i;
  50.   FILE *fi,*st;
  51.   if(argc!=2)
  52.   {
  53.     printf("AutoRegister version 2.2, written by Joseph Hodge\n");
  54.     printf("\n\n");
  55.     exit(0);
  56.   }
  57.   Register(argv[1][0]-'0');
  58.   mynode=argv[1][0]-'0';
  59.   strcpy(Path,argv[0]);
  60.   i=strlen(Path)-1;
  61.   while(Path[i]!='/' && Path[i]!=':') i--;
  62.   Path[i+1]='\0';
  63.     sm("",1);
  64.     sm("AutoRegister 2.2, written by Joseph Hodge",1);
  65.     sm("",1);
  66.     sprintf(tempname,"%sLockme",Path);
  67.   if(!(lock=Lock(tempname,ACCESS_WRITE)))
  68.   {
  69.     sm("",1);
  70.     sm("Sorry but an Update is currently being give on another node",1);
  71.     sm("Please try again in a few minutes",1);
  72.     ShutDown();
  73.     end();
  74.   }
  75.    
  76.   gu(Name,DT_NAME);strupr(Name);
  77.     strcpy(t,"VALIDATE");
  78.     pu(t,RETURNCOMMAND);
  79.     Chain("DOORS:FORMEDIT/FORMEDIT",argv[1][0]-'0',WAIT);
  80.     strcpy(t,"");
  81.     pu(t,RETURNCOMMAND);
  82.     sprintf(tempname,"Registered:Validate/Validate.db",Path);
  83.     if(!FindIt(Name,tempname))
  84.     {
  85.       sm("You must complete the validation FORM.",1);
  86.       sm("Aborting registration.",1);
  87.       ShutDown();
  88.       end();
  89.     }
  90.  
  91.     
  92.   sm("Version stats",1);
  93.   sm("-------------",1);
  94.    sprintf(string,"version >ram:%dver.txt %sexpress FULL\n",mynode,Path);
  95.   Execute(string,NULL,NULL);
  96.   sprintf(string,"%sexpress",Path);
  97.   if(!access(string,00))
  98.   sprintf(string,"ram:%dver",mynode); else strcpy(string,"");
  99.   sm(" 1>/X Express : ",0); showgfile(string);
  100.   sprintf(string,"%sexpress",Path); GetFileDate(string); 
  101.   sprintf(string,"%s %s %s",Dat,DatTime,DatSize);
  102.   if(string[0]!=' ')sm("              :   ",0); sm(string,1);
  103.   sm("",1);
  104.  
  105.   sprintf(string,"version >ram:%dver.txt %sacp FULL\n",mynode,Path);
  106.   Execute(string,NULL,NULL);
  107.   sprintf(string,"%sacp",Path);
  108.   if(!access(string,00))
  109.   sprintf(string,"ram:%dver",mynode); else strcpy(string,"");
  110.  
  111.   sm(" 2>/X ACP     : ",0); showgfile(string);
  112.   sprintf(string,"%sACP",Path); GetFileDate(string); 
  113.   sprintf(string,"%s %s %s",Dat,DatTime,DatSize);
  114.   if(string[0]!=' ')sm("              :   ",0); sm(string,1);
  115.   sm("",1);
  116.  
  117.   sprintf(string,"%sBBS.DOX",Path); GetFileDate(string); 
  118.   sprintf(string,"%s %s %s",Dat,DatTime,DatSize);
  119.   sm(" 3>/X DOX     :   ",0); sm(string,1);
  120.  
  121.   sprintf(string,"%sBBS.LZH",Path); GetFileDate(string);
  122.   sprintf(string,"%s %s %s",Dat,DatTime,DatSize);
  123.   sm(" 4>/X Package :   ",0); sm(string,1);
  124.   sm("-------------",1);
  125.   
  126.   while(1)
  127.   {
  128.     sm("",1);
  129.     sm("Select Item to download or 'Q' to Quit >:",0);
  130.     hk("",string);
  131.     switch(string[0])
  132.     {
  133.  
  134.       case '1':
  135.         sm("1.",1);
  136.      
  137.         sprintf(string,"%sexpressx000",Path);
  138.         if(!access(string,00))
  139.         {
  140.         Serialize();
  141.         hk("press anykey to begin download",temp);sm("",1);
  142.         Download(string);
  143.         }else sm("Sorry, this file is not available at this time",1);
  144.         break;
  145.         
  146.       case '2':
  147.       sm("2.",1);
  148.       
  149.        sprintf(string,"%sacp.ctrl",Path);
  150.         if(!access(string,00))
  151.         {
  152.         hk("press anykey to begin download",temp);sm("",1);
  153.         Download(string);
  154.         }else sm("Sorry, this file is not available at this time",1);
  155.         break;
  156.       case '3':
  157.        sm("3.",1);
  158.      
  159.         sprintf(string,"%sBBS.DOX",Path);
  160.         if(!access(string,00))
  161.         {
  162.         hk("press anykey to begin download",temp);sm("",1);
  163.               Download(string);
  164.  }else sm("Sorry, this file is not available at this time",1);
  165.  
  166.         break;
  167.       case '4':
  168.        sm("4.",1);
  169.         sprintf(string,"%sBBS.LZH",Path);
  170.         if(!access(string,00))
  171.         {
  172.         hk("press anykey to begin download",temp);sm("",1);
  173.         Download(string);
  174.  }else sm("Sorry, this file is not available at this time",1);
  175.  
  176.         break;
  177.  
  178.       case 'Q':
  179.       case 'q':
  180.   sm("",1);
  181.   sm("",1);
  182.   //sm(" IMPORTANT FACTS: Any version of express that you may download",1);
  183.   //sm(" via this door is strictly BETA, don't spread this, it may do more",1);
  184.   //sm(" harm than good",1);
  185.   //sm("",1);
  186.   //sm("",1);
  187.  
  188.         ShutDown(); end();
  189.     }
  190.  
  191.   }
  192.  
  193.  
  194. }
  195. void end(void)
  196. {
  197.   exit(0);
  198. }
  199. void LastCommand(void)
  200. {
  201.   char temp[200];
  202.  sprintf(temp,"ram:%dver",mynode); 
  203.   DeleteFile(temp);
  204.   sprintf(temp,"%sInfo",Path);
  205.   showgfile(temp);
  206.   if(lock) UnLock(lock);
  207.   
  208. }
  209. void GetFileDate(char *s)
  210. {
  211.   struct FileInfoBlock *FBlock;
  212.   struct DateTime d;
  213. BPTR FLock;
  214.   strcpy(Dat,"");
  215.   strcpy(DatTime,"");
  216.   strcpy(DatSize,"");
  217.    
  218.   if((FLock=Lock(s,ACCESS_READ)))
  219.   {
  220.     FBlock=AllocMem((long)sizeof(struct FileInfoBlock),MEMF_CHIP);
  221.     Examine(FLock,FBlock);
  222.     UnLock(FLock);
  223.     sprintf(DatSize,"%ld",FBlock->fib_Size);
  224.     d.dat_Stamp=FBlock->fib_Date;
  225.     d.dat_StrDate=&Dat;
  226.     d.dat_StrTime=&DatTime;
  227.     d.dat_Format=FORMAT_USA;
  228.     d.dat_StrDay=0;
  229.     d.dat_Flags=0;
  230.     DateToStr(&d);
  231.     FreeMem(FBlock,sizeof(struct FileInfoBlock));
  232.   }
  233. }  
  234. int FindIt(char *str,char *FileName)
  235. {
  236.   FILE *fi;
  237.   char image[200];
  238.   if(!TLock(FileName)) return(0);
  239.   strupr(str);
  240.   fi=fopen(FileName,"r");
  241.   while(fgets(image,80,fi)!=NULL)
  242.   {
  243.      sr(image);
  244.      strupr(image);
  245.      if(!strcmp(image,str))
  246.      {
  247.        fclose(fi);
  248.        return(1);
  249.      }
  250.    }
  251.    fclose(fi);
  252.    return(0);
  253. }
  254. int PurgeIt(char *str,char *FileName,char *NewName)
  255. {
  256.   FILE *fi,*fo1,*fo2;
  257.   char image[200];
  258.   int returncode=0;
  259.   if(!TLock(FileName)) return(0);
  260.   sprintf(image,"%s.tmp",FileName);
  261.   if(!TLock(image))
  262.   {
  263.      Rename(FileName,image);
  264.   }
  265.   strupr(str);
  266.   fi=fopen(image,"r");
  267.   fo1=fopen(FileName,"w");
  268.   fo2=fopen(NewName,"a");
  269.   while(fgets(image,80,fi)!=NULL)
  270.   {
  271.      sr(image);
  272.      strupr(image);
  273.      if(!strcmp(image,str))
  274.      {
  275.        fprintf(fo2,"%s\n",image);
  276.        returncode=1;
  277.        
  278.      }
  279.      else fprintf(fo1,"%s\n",image);
  280.    }
  281.    fclose(fi);
  282.    fclose(fo1);
  283.    fclose(fo2);
  284.   sprintf(image,"%s.tmp",FileName);
  285.  
  286.    DeleteFile(image);
  287.    return(returncode);
  288. }
  289. void sr(char *str)
  290. {
  291.   register int i;
  292.   i=strlen(str)-1;
  293.   while(i>-1)
  294.   {
  295.     if(*(str+i)<=32) *(str+i)='\0'; else break;
  296.     i--;
  297.   }
  298. }
  299. void Serialize(void)
  300. {
  301.   int i=0;
  302.   FILE *fi,*st;
  303.   static int j=0;
  304.   if(!j)
  305.   {
  306.   sprintf(tempname,"%sUpdate.Dat",Path);
  307.   if(!FindIt(Name,tempname))
  308.   {
  309.             Number.chksum=time(NULL);
  310.            sprintf(OutPutName,"%sUpdate.Dat",Path);
  311.            st=fopen(OutPutName,"a");
  312.            fprintf(st,"=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n");
  313.            fprintf(st,"%s\n",Name);
  314.            fprintf(st,"CheckSum %ld ",Number.chksum);
  315.            fprintf(st,"SumKickDate %s",ctime(&Number.chksum));
  316.            fprintf(st,"REG:%s-%u%u%u%u%u%u%u%u%u-%u.%u%u\n",Name,TX(11),TX(1),TX(9),TX(3),TX(4),TX(8),TX(6),TX(7),TX(5),TX(2),TX(10),TX(0));
  317.            fclose(st); 
  318.            sm("",1);
  319.            sprintf(p,"%u%u%u%u%u%u%u%u%u-%u.%u%u",TX(11),TX(1),TX(9),TX(3),TX(4),TX(8),TX(6),TX(7),TX(5),TX(2),TX(10),TX(0));
  320.            sm("Your Registration number is >:",0);
  321.            sm(p,0);sm("",1);sm("",1);
  322.    sm("Please record your Registration number, It will be needed to get",1);
  323.    sm("product assistance and future updates.",1);
  324.    sm("",1);
  325.    hotkey("Press (enter) to continue",tempname);
  326.    sm("",1);
  327.   }
  328.   else
  329.   {
  330.       pm("Please Enter registration number >:",RegNum,30);
  331.          strcpy(p,RegNum);
  332.          sprintf(t,"REG:%s-%s",Name,RegNum); strupr(t);
  333.          sprintf(tempname,"%sUpdate.dat",Path);
  334.          sprintf(tempname1,"%sUpdate.old",Path);
  335.  
  336.           if(!FindIt(t,tempname))//,tempname1))
  337.            {
  338.              sm("",1);
  339.              sm("Records indicate that this is an invalid Registration.",1);
  340.              sm("Please leave a message with the sysop for further assistance.",1);
  341.              sm("",1);
  342.              ShutDown();
  343.              end();
  344.            }
  345.       /*
  346.        Number.chksum=time(NULL);
  347.            sprintf(OutPutName,"%sUpdate.dat",Path);
  348.            st=fopen(OutPutName,"a");
  349.            fprintf(st,"=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n");
  350.            fprintf(st,"%s\n",Name);
  351.            fprintf(st,"CheckSum %ld ",Number.chksum);
  352.            fprintf(st,"SumKickDate %s",ctime(&Number.chksum));
  353.            fprintf(st,"REG:%s-%u%u%u%u%u%u%u%u%u-%u.%u%u\n",Name,TX(11),TX(1),TX(9),TX(3),TX(4),TX(8),TX(6),TX(7),TX(5),TX(2),TX(10),TX(0));
  354.            fclose(st); 
  355.            sm("",1);
  356.            sprintf(p,"%u%u%u%u%u%u%u%u%u-%u.%u%u",TX(11),TX(1),TX(9),TX(3),TX(4),TX(8),TX(6),TX(7),TX(5),TX(2),TX(10),TX(0));
  357.            sm("Your New Registration number is >:",0);
  358.            sm(p,0);sm("",1);sm("",1);
  359.  
  360.    sm("Please record your Registration number, It will be needed to get",1);
  361.    sm("product assistance and future updates.",1);
  362.    sm("",1);
  363.       */
  364.     hotkey("Press (enter) to continue",tempname);
  365.    sm("",1);
  366.   }
  367.   j=1;
  368.   }
  369.   sm("",1);
  370.   sm(" STANDBY serializing file",1);
  371.   for(i=0;i<strlen(p);i++)
  372.   {
  373.      sm(".",0); Delay(30L);
  374.   }
  375.   sm("",1);
  376.   sm("",1);
  377. }